.text
.code64
1:
  mov $0x3f8, %dx
  movb $'B', %al
  out %al, %dx
  jmp 1b // jump backward to label 1